<% if Request.QueryString("id")<>"" then Set rs = Server.CreateObject("ADODB.Recordset") SQL = "Select * from Down where id=" & Request.QueryString("id") rs.Open SQL, cn, 1,2 rs("click")=rs("click")+1 rs.update %> "><%=rs("title")%>

发布日期：<%=rs("date")%> 推荐程度：<%=rs("commend")%> 大小：<%=rs("size")%> 点击次数：<%=rs("click")%>


	">" width="169" height="160">

内容提要：<%=rs("as")%>

资源大小：<%=rs("size")%>

推荐指数：<%=rs("commend")%>

更新日期：<%=rs("date")%>

点击次数： <%=rs("click")%> <% dim userid,rsvip,sql userid = Session("id") set rsvip=server.createobject("adodb.recordset") '创建纪录集 sql="select * from GYS_User where id="&userid&" " '查找用户信息 rsvip.open sql,cn,1,2 %> <% if rsvip("vip") > 10 then set rsvip=nothing rsvip close %> ">">[点击下载] <% elseif rs("commend")="★★★★★" then %> 请您在注册后，申请VIP用户成功后再来吧 <% else %> ">">[点击下载] <% end if %>

资源说明
<%=rs("content")%>

〖访客评论〗

<% dim id id=request("id") if request("dd")<>"" then set Rs=GrateRs("select * from Down where id="&id,3) if len(request("review"))>200 then response.write("

对不起，您的评论不能这么长，阿赛的空间是有限的。

") else select case request("dd") case 1 Rs("review")="

"&request("review")&"
"&Rs("review") response.write "新年好！您发表的 “普通评论” 已成功记录在案！以下是本篇文章的评论：" response.write("
") response.write("
") Response.Write (Rs("review")) case 2 Rs("review")="

"&request("review")&"
"&Rs("review") response.write "新年好！您发表的 “打分评价” 已成功记录在案！以下是本篇文章的评论：" response.write("
") response.write("
") Response.Write (Rs("review")) case 3 Rs("review")="

"&request("review")&"
"&Rs("review") response.write "新年好！您发表的 “友情报错” 已成功记录在案！以下是本篇文章的评论：" response.write("
") response.write("
") Response.Write (Rs("review")) end select Rs.update response.write("
") end if end if set Rs=GrateRs("select * from Down",1) do while not Rs.eof Rs.movenext loop if id<>"" then set Rs=GrateRs("select * from Down where id="&id,1) %>

"> <% end if %>

评论类别：

普通评论

打分评价

友情报错

评论发表员，请您注意：
1.请控制在200个字符以内！
2.你想看评论？那么请您先评论一下！
3.请不要发表猥琐的评论内容！否则立马封IP！
4.评论发表后的任何负面影响、法律责任与本站一概无关！

发表评论：

操作选择：

<% set rs = nothing end if %>